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!* COPYRIGHT (c) 1978, 1980, 1982, 1984 
i® DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
!* ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gh 
!® ONLY IN ACCORDANCE WITH THE TERMS OF THE 
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® 

® 

® 

® 

® 

OR ANY 0 . 

i Y NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
it OTHER PERSON. NO TITLE TO AND OUNERSHIP OF THE SOFTWARE TS. HEREBY 
ie TRANSFERRED. * 
. ® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
i CORPORATION. . 
te 

ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
ie SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
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i FACILITY: 
OPCOM 
i ABSTRACT: 


This module contains all the various and sundry general 
purpose utility routines used by cluster functions within OPCOM. 


' 

! 

! 

' 

' 

! 

1 

1 

' 

! 
Environment: 

VAX/VMS operating system. 

; Author: 

CW Hobbs 

: Creation date: 

8 July 1983 

: Revision history: 

: v03-004 CuNS008 CW Hobbs 21-May-1984 
Ai Loy wildcard SGETSYI to return SS$_NOSUCHNODE, as it will 
i 
' 


do this if a node disappears while $GETSYI is working on 
getting the info. 


<o 


OPCSCLUSUTIL 
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16-Sep-1984 01:24: AX-11 Bliss-32 V4.0-742 

19-808- 1382 94:86:26 OPCOM.SRCJCLUSUTIL.B32;1 
v03-003 CWH3169 Cw H 


obbs 5-May-1984 
Second pass for cluster-wide OPCOM: 
- snenge CLUSUTIL_CONFIGURE to have a value = true if the 
configuration changed, false if not. 
- Do not request ACK’s when a node appears, wait for it to 
ask us for the ACK. This avoids sending a message to 
a node before it is ready to Listen. 
= Remove a check for NETO: being around, not necessary 
now that CSP does not use decnet. 


V03-002 CwH3002 CW Hobbs 16-Sep-1983 
Change error message for cluster errors 


' Start of CLUSUTIL 


e. 


Nn 8 
OPCSCLUSUTIL 16-Sep-1984 01:24:2 AX-11 Bliss-32 V4.0-742 Page 3. 
v04-6 1e8ep- 1984 2:50:41 — LOPCOM. eRCSELOSUTIL 85201 23 
7 075 LIBRARY ‘SYSSLIBRARY:LIB.L32'; 
a $78 LIBRARY ‘LIB$:OPCOMLIB'; | 
79 Bare FORWARD ROUTINE 
80 007 CLUSUTIL_ CONF IGURE ' Reconfigure cluster systems 
81 Boe) CLUSUTILFIND_NOD_BY_CSID, ! Find the NOD for a given CSID 
8 0081 CLUSUTIL_F IND_NOD_BY_NAME ' Find the NOD for a given nodename 
8 Boas CLUSUTIL“F IND“NOD-BY-SYSTEMID, ! Find the NOD for a given SYSTEMID 
84 008 CLUSUTIL_INCR_SEQOENTE, ! Increment a sequence number, cluster unique | 
85 0084 CLUSUTIL_INIT : NOVALUE, ! Perform initialization functions related to clusters 
86 0085 CLUSUTIL_NEXT_SEQUENCE, ! Increment global NEXT_SEQUENCE number, cluster unique 
87 Boe CLUSUTIL_NODE_ACTIVATE : NOVALUE, ! Activate a node which has responded to our acknowledge req. 
88 ( CLUSUTIL_NODE_INACTIVATE : NOVALUE, ! Inactivate a node which has disappeared | 
89 0088 CLUSUTIL_NODE_MESSAGE : NOVALUE, ! Tell cluster operators about node changes 
90 0089 CLUSUTIL_NODE START : NOVALUE : Initialize a node to the START state 
4 Bpa0 CLUSUTIL_SYSTEMID_EQUAL : JSB_RORI; ! Compare SCS system ids, return equivalence 
4 009 EXTERNAL ROUTINE 
96 009 ALLOCATE_DS 
1; 95 0094 CLUSMSG_RQCB_SEND, ! Send an RQCB to remote nodes | 
96 0095 DEALLOCATE_DS, 
97 0096 DEALLOCATE RQCB : NOVALUE, ! Dispose of an RQCB 
98 0097 FORMAT MESSAGE, ! Format a message 
99 0098 LOG_MESSAGE : Log an event 
44 NOTIFY_LISTED_OPERATORS; ! Notify interested operators 
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: RQCB structure type 
! Minimum scope value 
! Maximum scope value | 
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EXTERNAL 


: LONG 
: BITVECTOR (32), 


OCD_VECT : VECTOR, ! OCD List heads. ; ; 
SEQ_WIDTH_DEF : LONG, ! Width of node information when cluster is active 
SEQ_WIDT : LONG, : Width of node information 

SEQ_SEED : LONG, ' Some bits of local node info 

NEXT_SEQUENCE ! Next sequence number for data structures, etc 
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LCL_CSTD : LONG, 

CL_NOD : Sref_bblock, 

NOD~HEAD : VECTOR C2, LONG); 
BUILTIN 

INSQUE, 

REMQUE : | 
OWN 

NODE_CSID : LONG | 

SYSTEMID : VECTOR g. BYTE), 

SWINCARN : VECTOR LONG 

NAME_BUF : VECTOR 16, BYTES, 


NAME ~LEN 

CLUSTER FLAG =: LONG 

SYI_CSIB : VECTOR [4, LONG) ! GETSYI List to get CSID and MEMBER items only 
INITIAL (CSY18 NODE _CS10*16 + 4), 
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clusutil configure 0:41 OPCOM.SRCICLUSUTIL.B32 


1 GLOBAL ROUTINE CLUSUTIL_CONFIGURE = XSBITL ‘clusutil_configure' 


le4¢ 
} Functional description: 
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Compare cluster configuration database with reality, and make any adjustments 
which are necessary. 
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i Implict output: 
Global data may be altered 


' 

! 

! 

! 

' 

i 

' 

' 

' 

' 

None. 
| 

i 

: 

! Side effects: | 

Messages will be sent to cluster operators if there are any changes. 
! Routine value: : : 

True if change in configuration, false otherwise 


BEGIN ! Start of CLUSUTIL_CONF IGURE 

iL REMOVE_NODE (SCS_ID : REF VECTOR £3, WORD], QUEUE : REF VECTOR C2,LONG]) = 

MQUE ; 

LOCAL 
PTR : $ref_bblock; | 

Loop through all the nodes on the queue, remove an entry if it matches the SYSTEMID 


PTR = .QUEUE [0]; 
WHILE -PTR NEQ QUEUE (0) 
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BEGIN 
te th ES TONED, FO. (.SCS_ID, PTR CNOD_T_NODE_SYSTEMIDJ) 
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BEGIN 
REMQUE (.PTR, PTR); 
RETURN .PTR; 


END; 
PTR = .PTR CNOD_L_FLINK]; 
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00000000 


10CF0004 
10030006 
10040008 


10090010 
00000000 
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00000 NODE_CSI 


BLK 
00004 SYSTEMID: 
BLK 


0000 -BLK 
O000C SWINCARN: 
00014 NAME_BUF : 


1986 92:80:41 — EOScon. Sac Seuus 


-PSECT S$OWNS$,NOEXE,2 
D: 


00024 NAME_LEN: 


00028 CLUSTER 


10D00004 0002C SYI_CSID: 


8 
LKB 16 
4 
FUG: 
4 


ONG 282066948 


wl 
00000000' 00030 SADDRESS NODE_CSID 
00000000 00034 “LONG 0, 0-~ 
10D00004 0003C SYI_NODE: 
.LONG 282066948 
00000000' 00040 “ADDRESS NODE_CSID 
00000000 00044 -LONG 0, 282001412 
00000000' 9004¢ ADDRESS CLUSTER FLAG 
00000000 00050 .LONG 0, 282263558 
00000000" 00058 ADDRESS SYSTEMID 
00000000 0005¢c G0, 282329096 
00000000' 00064 ADDRESS SWINCARN 
00000000 00068 -LONG 0, 282656784 
* 00000000" 00070 “ADDRESS NAME “BUF, NAME _LEN 
00000000 00078 “LONG 0 
.EXTRN ALLOCATE_DS, CLUSMSG_RQCB_SEND 
-EXTRN DEALLOCATE DS DEALLOCATE RQCB 
“EXTRN FORMAT_MESSAGE, TOG MESSAGE 
-EXTRN NOTIFY“LISTED_ OPERATORS 
-EXTRN RQCB_K antre oni N_SCOP E 
-EXTRN MAX_SCOPE 
EXTRN OCD-VECTOR, erat OIDTH _DEF 
EXTRN SEQ7WIDTH EED 
EXTRN NEXT SEQU ence. “GLOBAL_STATUS 
EXTRN LCL_CSID, 
EXTRN NOD-HEAD 
.PSECT SCODES$,NOWRT,2 
0004 00000 REMOVE _NODE: 
WOR Save R2 
08 BC DO 00002 MOVL § @QUEUE, PTR 
52 D1 00006 18: CMPL PTR, QUEUE 
1A 13 OOOOA BEQL 3$ 
50 A2 9E 0000C MOVAB B0(PTR), R1 
04 AC 06 0010 MOVL  SCS_ID 
0000v 0014 BSBW chu surit. SYSTEMID_EQUAL 
5 9 0017 LBC —_- RO, 28 
62 OF OOOIA REMQUE (PTR), PTR 
52 DO 0001D OVL PTR, RO 
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Routine Base: $CODE$ + 0000 
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vo4=0 1e=8ep-1984 f2:80:41 — EOBCOM. SRCSeLUSUTE 85201 mee: 


Lusutil_configure UTIL (4 
206 03 2 LOCAL | 
07 0 CHANGE, 
08 0 NOD : Sref_bblock, ! Local pointer 
09 0 WILD : 
1 0 TEMP_Q : VECTOR C2,LONG) 
4 0 INITIAL (TEMP_Q, TEMP_Q), 
$1 ? STATUS : LONG; 
$i ; CHANGE = FALSE; ! Assume no change in the configuration 
¢1 If not in a cluster we are done. 
; IF (NOT .GLOBAL_STATUS CGBLSTS_K_IN_VAXcLuster]) 
3 ; RETURN .CHANGE; 
§ $} Move all the node entries to our temporary queue, making sure that the nodes are still active | 
é WHILE NOT REMQUE (.NOD_HEAD [0], NOD) 


BEGIN 
Get cluster information for this noce. Looking for CSID is enough. 
STATUS i (CSIDADR=NOD CNOD_L_NODE_CSIDJ, ITMLST=SYI_CSID); 
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1 
1 
i 
2 
2 2 é 
22 2 
22 2 ¢ 
22 22 
22 224 3 
22 225 3 
22 226 3 
23 227 3 
23 228 3 IF NOT . 
23 229 3 THEN 
$3 sa, Sees 
$3 $3 } Place the node in the ‘‘departed’’ state, and all that that entails 
23 234 4 CLUSUTIL_NODE_INACTIVATE (.NOD); 
23 23 4 CHANGE = TRUE; 
23 23 ; ; 
24 23 ! 
24 238 3 ! Put it on the temporary queue 
24 239 «3 ! 
24 24 3 INSQUE (.NOD, TEMP_Q); 
24 241 2 END; 
24 242 2! 
24 243 2 ! Build a List of all the nodes in the cluster 
24 24 § ! 
24 24 WILD = -1; 
24 24 WHILE TRUE 
25 24 DO 
251 24 BEGIN 
252 24 ; ! 
253 25 ! Get cluster information for wild nodes. Loop until success, end, or 
254 5 ! serious failure. S$GETSYI will return NOSUCHNODE if a node happens to 
$2? ; } disappear while the $GETSYI call is processing the CSID. 
Ey, 25 WHILE TRUE 
58 $2 DO 
59 56 4 BEGIN 
60 257 & STATUS = $GETSYIW (CSIDADR=WILD, ITMLST=SYI_NODE); 
$e) $2 ? earls EQL SS$_NOMORENODE ' Found the end 


lt om | 


g 
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BEGIN 
; Allocate and start the NOD 
if NOT (STATUS = ALLOCATE_DS (NOD_K_TYPE, NOD)) 


l 
; ° STATUS ' Found a live one 
: EXITLOOP; 
; IF NOT .STATUS ! Ooops 
267 6 HEN 
seo ? fg StAtUs NEQ SS$_NOSUCHNODE ! NOSUCHNODE is ok, try next 
4 en $signal_stop (.STATUS); 
ie IF .STATUS EQL SS$_NOMORENODE 
7 7 THEN 
a g EXITLOOP; 
276 7 i See if this node is in the temporary queue. If so, it will be removed. 
ste f Otherwise, 0 will be returned. 
g9 , NOD = REMOVE_NODE (SYSTEMID, TEMP_Q); 
+t f If the node is 0, then we have a brand new node to add 
$83 if .NOD EQL 0 
284 THEN 
285 
286 
287 
288 
289 


290 


$signal_stop (.STATUS); 
292 NOD CNOD_B_STATE] = NOD_K_STATE_DEPARTED; ' Pass through "departed’’ state briefly, the next 
344 END; ' clause will move us to ‘started’ 
$e. } If the node is present but ‘‘departed’’, then start the node 
297 IF .NOD CNOD_B_STATEJ EQL NOD_K_STATE_DEPARTED 
298 THEN 
99 BEGIN 
00 CLUSUTIL_NODE_START (.NOD); 
301 CLUSUTIL-NODE-MESSAGE (.NOD, OPC$_NODE_START, FALSE); 
308 — = TRUE; 


; Put it back on the real queue 
INSQUE (.NOD, NOD_HEAD); 
END; 


! OK, now if there are any nodes left on the temporary queue, that means that 
those nodes are no longer with us. (They vaporized while we were in the Loop.) 


WHILE NOT REMQUE (.TEMP_Q [0], NOD) 
BEGIN 
Place the node in the ‘‘departed’’ state, and all that that entails 
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USUTIL 6=Sep-1984 01:24:2 AX-11 Bliss-32 V4.0-742 Page 10 Q 
- 50 clusutil_configure 12-868} 38 2: 86: 9 OPCOM.SR RCICL usut lis B32;1 . (4). V 
0 v7 CLUSUTIL_NODE_INACTIVATE (.NOD); ; 
¢ 19 } Put it back on the real queue | ; 
i 0321 3 INSQUE ( -NOD, NOD_HEAD) ; | ; 
5 O3e¢ CHANGE = TRUE; | : 
6 END; e 
7 8 4 | ; 
a 5 2 RETURN .CHANGE; : 
9 0326 1 END; ! End of CLUSUTIL_CONF IGURE | : 
eEXTRN SYSS$GETSYIW, LIBSSTOP ‘ 
003¢ 00000 .ENTRY CLUSUTIL CONF IGURE , Save R2,R3,R4,R5 : 0151 ; 
55 000000006 00 H 00002 MOVAB sys S$GETSVIW, : | ; 
5E 10 C2 00009 SUBL2 SP ; : 
08 AE 08 AE 9E 0000C MOVAB TEMP Q, TEMP_Q + 0178 : 
OC AE 08 AE 9E 00011 MOVAB TEMP. Q, TEMP~0+4 : : 
54 D4 00016 CLRL CHAN + 0211 ; 
03 00006 CF Es 00018 BLBS § GLOBAL_STATUS+1, 1$ + 0215 ; 
00E2 31 00010 BRW 11$ : ; 
04 AE 00006 DF OF 00020 1$: REMQUE @NOD_HEAD, NOD + 0221 F 
eC 1D 00026 BVS 3$ ; : 
— 7C 00088 CLRQ = =( SP) : 0227) ; 
7E D4 OO02A Ces ; : 
0000' CF 9F 900¢¢ PUSHAB SYI_CSID ; : 
7E D4 00030 CLRL. = ; : 
7E 18 AE eC C1 00032 ADDL3 #44, NOD, -(SP) : | F 
E D4 00037 CLRL = : : 
65 07 FB 00039 CALLS #7, SYSS$GETSYIW : ; 
53 50 pO 0003C MOVL 0, STATUS : ; 
0B 53 £8 0003F LBS ATUS, 2$ : 0228 ; 
04 AE OD 00042 PUSHL NOD > 0234 ; 
0000v CF 01 FB 0004 CALLS #1, CLUSUTIL_NODE_INACTIVATE : ; 
54 01 DO 0004A MOVL #1, CHANGE : 0235 : 
08 AE 04 BE OE 00040 2$ INSQUE a@NOD, TEMP_Q : 0240 ; 
CC 11 00052 BRB 1$ + 0221 : 
6E 01 CE 00054 3$ MNEGL #1, WILD : 0245 : 
7E 7C 00057 4$ CLRQ. = = (§P) : 0257 ; 
7E D4 90099 CLRL = = (SP) : : 
0000' CF 9F 00058 PUSHAB SYI_NODE : : 
7E p4 0005F CLRL = (SP) : : 
14 AE 9F 00061 PUSHAB WILD F 
7E D4 90064 CLRL = = (SP) : 
65 07 FB 00066 CALLS #7, SYSS$GETSYIW : | 
33 50 D0 60069 MOVL 0 ; 
00000A00_ =s«BF 3 D1 006 CMPL STATUS, #2560 : 0258 
13 000 BEQL 10s : 
0B 53 £8 0007 BLBS STATUS, 5$ + 0260 
0000028c = BF 53 D1 0007 CMPL STATUS: #652 > 0265 | 
D 13 oor BEQL «6s 4$ ; 
28 1 81 BRB 6$ : 0267 
63 13 0085 5$: BEQL 108 ; 0269 
08 AE 9F 0008 PUSHAB TEMPO ; 0276 | 
0000' CF 9F 00088 PUSHAB SYSTEMID ; | 
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OPCSCLUSUTIL 16-Sep-1984 01:24:2 AX-11 Bliss-32 V4.0-742 
yo4-000 clusutil_configure ba aet 1 93; oie4 OPCOM.SRCICLUSUTIL.B32;1 
FF46 OCF FB 0008C CALLS #2, REMOVE_NODE 
04 «AE 96 09 2091 MOVL nS: NOD ~ 
26 (1 093 BNEQ 
04 AE 9F 00097 PUSHAB 
000000006 8F DD 0009A PUSHL YPE 
00006 cf F SOA0 CALLS ie. ALLOCATE _DS 
3 D 0 A MOVL Tus 
OA E8 OOOA8 BLBS = ST ATS 
53 DD OOOAB 6$ PUSHL ST ATU ° 
000000006 00 01 FB OOOAD CALLS #1, PIBSsToP 
04 00084 RET 
50 04 «AE 0 90083 7$ MOVL NOD, RO 
22 AO 04 0089 MOVB #4 34 (RO) 
52 04 AE 00 000BD 8$ MOVL R2 
04 22 Ad 91 000C1 CMPB 3Ck2), 
19 12 000C5 BNEQ 
52 DD 000C7 PUSHL 
0000v CF 01 FB 000C9 CALLS CLUSUTIL_NODE_START 
7E D4 OOOCE CLAL Ol gps 
00058243 8F DD 00000 PUSHL #381027 
5¢ DD 00006 PUSHL Re 
0000v CF 03 FB 00008 CALLS #3, CLUSUTIL _NODE _MESSAGE 
54 01 DO 00000 MOVL #1, CHA 
00006 CF 62 OF O00EO 9$ INSQUE (R2), NOD _HEAD 
FF6OF 31 OOOES BRW 
04 AE 08 BE OF OOOE8 108: REMQUE @TEMP_Q, NOD 
13 1D OOOED BVS 11$ 
04 AE DD OOOEF PUSHL NOD 
000Ov CF 01 FB 000F2 CALLS #1, CLUSUTIL NODE_INACTIVATE 
0000G CF 04 BE OE 000F7 INSQUE @NOD. N HEAD 
54 01 DO OO00FD MOVL #1, CHANGE 
E6 11 00100 BRB 
50 54 pO 00102 11$ MOVL CHANGE, RO 
04 00105 RET 


; Routine Size: 262 bytes, Routine Base: $CODE$ + 0029 
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OPCSCLUSUTIL 16-Sep-1984 01:24: AX-11 Bliss-32 V4.0-74 Page 12) 0 
904-000 clusutil_find_nod_by_csid 12-88-1382 93:86:29 OPCOM. SRCICLUSUTIL. B53 1 . (5). V 
: ) 0 ! GLOBAL ROUTINE CLUSUTIL_FIND_NOD_BY_CSID (CSID) = ZSBTTL ‘clusutil_find_nod_by_csid' ‘ 
; é 0 9 1 I+ ; 
3 ¢ 8 , : Functional description: : 
; $ 8 ¢ ! Find a cluster NOD block, given the CSID of the node. ‘ 
3 8 0334 1! Input: | 3 
; 339 0335 1! ; : 
; 340 03 $ 1! CSID - Longword csid of system desired : 
i 30) $334 1 i Implicit Input 
3 ' Implic nput: 3 
; rk 0339 1! : 
> 344 0340 1! None. : 
; «345 0341 1! 5 
: 346 tet 1 ! Output: 3 
3 347 0343 1! 3 
; 348 0344 1! None. 3 
; 349 0345 1! 3 
s 350 0346 1°! Implict output: 3 
3 Bo} 0347 1! 3 
3 226 0348 1! None. 3 
ee 0349 1! 3 
; 354 0350 1! Side effects: | 3 
3. Soe 0351 1! 3 
; 356 O326 1! None. 3 
3 Sor 0353 1! 3 
: ia 0354 1 ! Routine value: 3 
; 359 0355 1! . | 3 
; 360 0356 1! Address of node block, or 0 if not found ; 
; 361 0357 1 !<- : 
3 306 0358 1 3 
; 36 0359 2 BEGIN ! Start of CLUSUTIL_FiND_NOD_BY_CSID $ 
3; 364 0360 2 3 
3 6365 0361 2 LOCAL 3 
; 366 0 o¢ r 4 PTR : $ref_bblock; F 
: 367 03635 2 3 
; 368 0364 2! F 
3 $3) 8 65 2 : Loop through all the nodes on the queue, remove an entry if it matches the CSID : 
; 71 0 $ PTR = .NOD HEAD (0); g 
3 72 0 2 WHILE .PTR NEQ NOD “HEAD [0] é 
3 73 0 dO 3 
; 74 0 BEGIN ; 
3 75 0 IF .PTR CNOD_L_NODE_CSID) EQL .CSID i 
3; sf 0 THEN 3 
3 77 0 RETUR : 
: 378 0 PTR = PTR tNOD: “LLFLINK]; | : 
: 379 0 END; ; 
; 380 0 i 
s 381 0 RETURN 0; 3 
; 382 0 1 END; ! End of CLUSUTIL_FIND_NOD_BY_CSID : 


kK 9 
OPCSCLUSUTIL 16-Sep-1984 01:24: AX-11 Bliss-32 V4.0-742 
vOs-000 clusutil_find_nod_by_csid 12-88 - 382 9:85:29 YOPCOM. SRC CLUSUTIL.B32;1 
er sENTRY CLUSUTIL_FIND_NOD_BY_CSID, Save nothing 
2 89006 CF 4 MOVL NOD_HEAD, PTR 
Q 0006 gf E 18: MOVAB NOD_HEAD, RO 
50 1 01 444 CMPL PTR, RO 
10 13 Q000F BEQL 
04 AC 2c HY } Bete Hes 44(PTR), CSID 
50 8 06 O18 nove PTR, RO 
51 61 D0 Sie 2$ MOVL (PTR), PTR 
BB ss 
b4 035 RET 


; Routine Size: 36 bytes, Routine Base: $CODE$ + 012F 


g 
OPCSCLUSUTIL 18-Se 1984 01:24:2 AX=11 Bliss-32 V4.0-742 Page 14 
y04-000 clusutil_find_nod_by_name 12-8 08- 1 3b 93:85:28 OPCOM. SRCICLUSUTIL 83251 ’ (6) | 
; oe 8 ° ! GLOBAL ROUTINE CLUSUTIL_FIND_NOD_BY_NAME (NAME : $ref_bblock) = ZSBITL ‘clusutil_find_nod_by_name' | 
>; 386 8 e } jo : 
3 ff 8 ¢ ! } Functional description: : 
: 34 8 bs ! Find a cluster NOD block, given the nodename of the node. | : 
: 391 0386 1! Input: | 
3 st ae | 
mR. 0388 1! NAME = Pointer to name descriptor ; 
; 394 0389 1! | : 
; 395 0390 1 ! Implicit Input: : 
; 396 0391 1! : 
; 397 0338 75 None. : 
; 398 0393 1! : 
; 399 0394 1 ! Output: ; 
; $00 0395 1! : 
; 401 0396 1! None. ; 
; 402 0397 1! ; 
: 403 0398 1! Implict output: : 
> 404 0399 1! : 
; 405 0400 1! None. ‘ 
; 406 0401 1! ; 
; 407 bcos 1 ! Side effects: i 
; 408 0403 1! : 
; 409 0404 1! None. ; 
; 410 0405 1! i 
> 411 0406 1 ! Routine value: : 
; 412 0407 1! : : 
> 413 0408 1! Address of node block, or 0 if not found : 
> 414 0409 1 !-- : 
> 415 0410 1 ; 
>; $16 0411 2 BEGIN ! Start of CLUSUTIL_F IND_NOD_BY_NAME : 
417 0412 2 | 
; 418 04135 2 LOCAL . 
: 419 0414 2 PIR: $ref_bblock: | 
; 420 0415 § : 
: 421 0416 2! : 
3 $38 a4 § Loop through all the nodes on the queue, remove an entry if it matches the NAME | : 
; 54 0419 2 PTR = .NOD_HEAD (0); : 
> 425 0420 WHILE .PTR™NEQ NOD_HEAD [0] : 
426 0491 3 DO | 
; 427 O4@ BEGIN | 
; 428 04 IF CHSEQL (.NAME CDSCS$W_LENGTH], .NAME CDSCSA_POINTER), 0, : 
> 429 0424 3 PTR CNOD_L_NAME_LENS, .PTR CNOD_L-NAME_PTR4) 
; 430 0425 HEN : 
3 431 0426 RETURN PTR; | 
: 432 0427 PTR = .PTR CNOD_L_FLINK); | 4 
3 43 0428 § END; i 
3 434 0429 ‘ 
; 435 be O 2 RETURN 0; ‘ 
; 436 431 1 END; ! End of CLUSUTIL_F IND_NOD_BY_NAME : 
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OPCOM.SR 


higer -32 v4. onrse 
CICLUSUTIL ; 
CLUSUTIL_FIND_NOD_BY_NAME, Save R2,R3,R4,R5 
NOD_HEAD, PTR 

NAME, R5 

NOD_HEAD, RO 

PTR, RO 


@NAME, @4(R5), S2(PTR), #0, 248(PTR) 


2$ 

PTR, RO 
(PTR), 
1$ 

RO 


PTR 
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OPCSCLUSUTIL o-Sep-1984 01:24:26 VAX 11 Bliss-32 v4.0-742, Page 16 


clusutil_find_nod_by_SYSTEMID 14-Sep-19 OPCOM. SRC tLusutt 32;1 (7) | 
3 : 3 : ¢ ! GLOBAL ROUTINE CLUSUTIL_FIND_NOD_BY_SYSTEMID (SYSTEMID : REF VECTOR C3,WORDJ) = ZSBITL ‘clusutil_fin 
: 440 4 1 S++ 
3 red r 5 ! Functional description: 
: 44 4 ‘ 1 Find a clustery NOD block, given the SYSTEMID of the node. 
3 444 0438 1! 
3; «6445 0439 1 ! Input: | 
: 446 0440 1! oie 
; 447 0441 1! SYSTEMID = 48-bit id of system desired 
: 448 peeg 1: 
3; 4469 445 1! Implicit Input: 
: 450 444 1: 
; 451 0445 1! None. 
: $26 0446 1! | 
s 45 0447 1! Output: 
3 6454 0448 1: 
; 455 0449 1! None. 
; 456 0450 1! 
: 457 0451 1 ' Implict output: 
; 458 Bb 3g 1 i 
3; 459 0453 1! None. 
> 460 0454 1 | 
; 461 0455 1 ! Side effects: 
3 $66 0456 1! | 
; 46 0457 1! None. 
> 464 0458 1 } | 
; 465 0459 1 ! Routine value: | 
: 466 0460 1 ! ‘ 
: 467 0461 1 | Address of node block, or 0 if not found 
; 468 0462 1 i- 
; 469 04 1 
; 470 0464 2 BEGIN ! Start of CLUSUTIL_FIND_NOD_BY_SYSTEMID 
3: 471 0465 § 
3; 472 0466 LOCAL 
3 473 0467 PTR : $ref_bblock; | 
3: 474 0468 
; 475 0469 ! F 
: rie] Beee 3 : Loop through all the nodes on the queue, remove an entry if it matches the SYSTEMID 
: 478 047 PTR = .NOD HEAD (0); 
; 479 047 WHILE .PTR-NEQ NOD “HEAD C0) 
: 480 0474 DO 
: 481 0475 BEGIN 
; 48 0476 IF CLUSUTIL_SYSTEMID_EQUAL (PTR CNOD_T_NODE_SYSTEMIDJ, .SYSTEMID) 
3; 48 0477 THEN 
3 0478 RETUR 
> 485 0479 PTR = PTR tNop: “LFLINK); | 
3 0480 END; 
3; 487 0481 
; 688 048 RE so 0; 
; 489 0483 1 END ! End of CLUSUTIL_FIND_NOD_BY_CSID 
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43 bytes, Routine Base: $CODE$ + 0180 


; Routine Size: 


10 
OPCSCLUSUTIL 1b-Se 1984 01:24:2 AX- 
v0%-000 clusutil_find_nod_by_SYSTEMID 13280071384 13380349 


GLOBAL ROUTINE CLUSUTIL_INCR SEQUENCE (OLD_SEQ) = 


<O 


a 
~o 
ad 
oO 
> 
[oJ 
- 
ald 


49 0485 
49 04 8 144 
494 04 ! Functional description: 
495 0488 ! | 
496 0489 Take the number passed as input, return the number incremented with a cluster 
497 0490 unique sequence number. 
498 0491 ! 
499 049 ' Input: 
500 049 
2p) Bige OLD_SEQ : Longword sequence number to be incremented 
50 049 ! Implicit Input: 
504 049 F 
0498 SEQ_WIDTH : Width of node information field in sequence number 
!' Output: 


' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

None. 
Implict output: 
None. 
Side effects: 
None. 
Routine value: 
' 
' 


Incremented sequence number 
BEGIN ! Start of CLUSUTIL_INCR_SEQUENCE 


REGISTER 
NEW_SEQ : LONG; 


' 
! First, extract the cardinal number (high bits) from the sequence number. Increment the value. 
(SEQ_WIDTH will be zero if not in a cluster) 


t 
NEW_SEQ = .OLD_SEQ<.SEQ_WIDTH,32-.SEQ_WIDTH,O> + 1; 
i Now, move the cardinal number over to the left and stick the fixed node 
! identifier into the low bits (SEQ_WIDTH will be zero if not in a cluster) | 
NEW_SEQ = (.NEW_SEQ*.SEQ_WIDTH) + .SEQ_SEED; 
Return the updated value 


RETURN .NEW_SEQ; 
ND; ! End of CLUSUTIL_INCR_ SEQUENCE 
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10 
1b-Se -1984 01:24: AX=11 Bliss-32 V4.0-742 
10788 b-1 382 93:85:89 LOPCOM. SRC CLUSUTIL.B32;1 
GLOBAL ROUTINE CLUSUTIL_INIT : NOVALUE = RSBTTL ‘clusutil_init’ 


'e¢ 
' Functional description: 


Perform process initialization activities related to cluster participation. 
Input: 
None. 
Implicit Input: 
None. 
Output: 
None. 
Implict output: 
Global data is initialized. 
Side effects: 


We will know if we are in a cluster, and if so, we will be ready to 
participate in cluster activities. 


Routine value: 
None. 


BEGIN ! Start of CLUSUTIL_INIT 


: Sref_bblock, 
STATUS : LONG; 
; If we are already in a cluster, leave without doing any more 
IF .GLOBAL_STATUS CGBLSTS_K_IN_VAXc Luster] 
RETURN; 


i Get system information to see if we are in a cluster. 
Failure is fatal (there is no system?). 


if NOT (STATUS = SGETSYIW (ITMLST=SYI_NODE)) 

$signal_stop (.STATUS); 

Save the membership flag 

Mog (GLOBAL_STATUS CGBLSTS_K_IN_VAXcluster] = .CLUSTER_FLAG) 
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F 10 
16-Sep-1984 01:24:26 AX-11 Bliss-32 V4.0-742 Page 21. 
clusutil_init eae 93:85:26 OPCOM. SRCICLUSUTIL.B32s1 . (3) 
023% ' RETURN; 
0896 i Save the CSID and the sequence number seed before we allocate data 
059 i structures. The default sequence width is held by the global SEQ_WIDTH_DEF 
0598 i to make it possible to increase the size of the cluster supported with @ simple 
0599 i PATCH. This atte balance the friendliness of having small request numbers Sgeinst 
beot the need to be able to support larger clusters in the future. 
pene LCL _CSID = .NODE =CS10 
060 SEQ-WIDTH = ,SEQ- WIDTH 
bebe sEGLSEED = (( .NOBE mas rat 2,0>)*(.SEQ_WIDTH_DEF=2)) + .NODE_CSID<0,.SEQ_WIDTH_DEF-2,0>; | 
0606 i Allocate and initialize the NOD, and add it to the List of nodes, also make 
pene it the local node 
0609 3 IF NOT (STATUS = ALLOCATE_DS (NOD_K_TYPE, NOD)) 
0610 THEN 
0611 $signal_sto Pd gs ae 
bole CLUSUTIL_NOBE mi ART (.NOD) | 
061 NOD OL won 8 STA A? = NOD. K “STATE LOCAL; | 
0614 2 INSQUE (7NOD, NOD_HEAD 
0615 2 LCL ONOD NOD; 
0616 2 
0617 2 RETURN; 
0618 1 END; ! End of CLUSUTIL_INIT 
| 
001¢ 00000 .ENTRY CLUSUTIL_INIT, Save R2,R3,R4 : 0537) 
54 0000" CF 9€ 00002 MOVAB NODE_CSIB, R4 F 
5E 04 C2 00007 SUBL2 #4, : 
7C 0000G CF €E8 QOO0A BLBS GLOBAL_STATUS+1, 3$ ; 0579 
7E 7C QOOOF CLRQ -(SP) 3; 0586 
7E D4 00011 CLRL -(SP) 3 
3c A& 9F 00013 PUSHAB SYI_NODE P 
7E 7C 00016 CLRQ -(SP) 3 
7E 04 00018 CLRL -(SP) : 
00000000G 00 07 FB QOO1A CALLS #7, SYSSGETSYIW 3 | 
45 50 €9 00021 BLBC STATUS, 3 | 
51 28 A4S D0 BOOS. MOVL CLUSTER FLAG, R1 ; 0592 
01 00 51 FO 00028 INSV RT, #0,-#1, GLOBAL_STATUS+1 F 
59 51 €9 84 F BLBC R 3 
0000G CF 64 D0 0003¢ MOVL NODE CSID, LCL_CSID ; 0602 | 
0000G CF 0000G CF 09 $003 MOVL SEQ QIDTH DEF, SEQ_WIDTH ; 0603 | 
52 0000G CF 02 C3 QO03E SUBL3 #2, SEQ_WIDTH_DEF, R2 ; 0604 
02 AG 0 0 EF 00044 EXTZV #0, #, NODE, (siD+2, R3 : | 
53 2 78 QOO4A ASHL Ree R3, ; 
64 26 00 EF Bnet EXTZ #0, Re NODE_CSID, R1 3 
0000G CF 5 51 C1 B82 ADDL R1, R3, SEQ SEED 3 
5E Dd 00059 PUSHL SP : 0609 
00000000G 8F ODD 0005B PUSHL #NOD_K_TYPE 3 
0000G CF 0s Fe Boog CALLS #2, ALCOCATE_DS j 
OA E8 00066 BLBS STATUS, 2$ : 
50 DD 00069 1$: PUSHL STATUS : 0611 
00000000G 00 01 FB 00068 CALLS #1, LIBSSTOP j 
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140 bytes, Routine Base: $CODE$ + 01CB 


; Routine Size: 


FAAAAAAAASAAAAAAH 
WR ODONOUESWN—OOWw Ss 


Fe ee ee ek ah oh eh a ead ah 


PAERAPEARAAAAAAAAAAAAAAAAASIAAAS — 


BES EAN IWIwnononroroponopofnonon 


SOOOOCOCOOCOOCOCOCOOOOCOOOOCOOOSSO 0 
=> 
FUN — CO DONOAUE WN —OOONOUS WN OO 


0661 


16-Sep-1984 01:24:2 AX=11 Bliss-32 
usutil_init 107 388-1$8e 93:86:29 OPCOM. SRC ICLUSU 


So 


GLOBAL ROUTINE CLUSUTIL_NEXT_SEQUENCE = 
44 
Functional description: 


Increment and return the global variable NEXT_SEQUENCE. 
Input: 

; None. 

: Implicit Input: 

None. 

Output: 

None. 

Implict output: 

Global cell NEXT_SEQUENCE is incremented. 

Side effects: 

None. 

Routine value: 

cS Incremented sequence number 

BEGIN ! Start of CLUSUTIL_NEXT_SEQUENCE 


REGISTER 
SEQ : LONG; 


Get, store and return the updated value 


SEQ = CLUSUTIL_INCR_ SEQUENCE (.NEXT_SEQUENCE); 
NEXT_SEQUENCE = .SEQ; 


RETURN .SEQ; 
END; 


End of CLUSUTIL_NEXT_SEQUENCE 


00 0000 ENTRY CLusurit NEXT_SEQUENCE, Save nothing 
00006 CF DD 00002 PUSHL NEXT SEQUENCE™ 
FF49 CF gi 0006 CALLS trusuTiL INCR_ SEQUENCE 
00006 CF 0 p 60008 MOVL 6, NEXT_ SEQUENCE 
4 0001 RET 


17 bytes, Routine Base: S$CODE$ + 0257 
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J 10 
OPCSCLUSUTIL 16-Sep-1984 01:24:2 AX-11 Bliss-32 V4.0-74 p 
voe- yexgee=t Re 95:85:26 RCICLUS : age 125 


CLUSUTIL_NODE_activate OPCOM.SR UTIL. B32;1 (11) | 
; ot} 2687 ! GLOBAL ROUTINE CLUSUTIL_NODE_ACTIVATE (NOD : Sref_bblock) : NOVALUE = ZSBTTL ‘CLUSUTIL_NODE _activa| 
3; 675 Oees 1 44 
; 676 666 1 ! Functional description: | 
3; 677 667 1! 
: 678 668 1! Place a NOD into ACTIVE state. | 
; 679 669 1! 
; 680 0670 1°! Input: 
; 681 0671 1! | 
; 68 pore 1! None. 
; ob Sep i Implicit Input 
3 ! Implic nput: 
; 685 ers 1! 
; 686 0676 1! None. 
; 687 0677 1! 
; 688 0678 1 ! Output: 
; 689 0679 1! 
; 690 0680 1! None. 
; 691 0681 1! 
; 69 0682 1 ! Implict output: 
3; 6S 0683 1! 
3; 694 0684 1! Global data may be altered 
; 695 9905 Fi 
; 696 0686 1 ! Side effects: 
3; 697 0687 1! 
; 698 0688 1! Messages will be sent to cluster operators if there are any changes. 
; 699 0689 1! 
: 700 0690 1 ! Routine value: 
; 701 0691 1! 
; 70 0692 1! None. 
; 70 0693 1 !-- 
2. 0694 1 
: 705 0695 2 BEGIN ! Start of CLUSUTIL_NODE_ACTIVATE 
. 2 0696 2 
3; 707 0697 2! : 
3; 70 0698 2! If the node is already active, return 
; 709 0699 § ! 
; 710 0700 2 IF .NOD CNOD_B_STATE) EQL NOD_K_STATE_ACTIVE 
. ay 0701 THEN 
: at ta i4 RETURN; 
Te a 070 ! ; 
> 714 0704 ' Set the state of the node to active 
; 715 0705 i 
s 716 Be 88 NOD NOD_B_STATE] =_NOD_K STATE ACTIVE; 
: ats O08 NOD NOD~ V~ACK “PEND = FACSE; 
3 ahs 44 | Tell cluster operators that we have activated this node 
; ts! grt CLUSUTIL_NODE_MESSAGE (.NOD, OPC$_NODE_ACTIVE, FALSE); 
; 88 orig RETURN; 
: 726 0714 1 END; ! End of CLUSUTIL_NODE_ACTIVATE 


K 10 
OPCSCLUSUTIL 16-Sep-1984 O}: 4:26 AX-11 Bliss-32 V4.0-742 
v04-000 CLUSUTIL_NODE_activate 14-Sep-1984 12:50:4 OPCOM. SRCJCLUSUTIL.832;1 
0009 ENTRY CLUSUTIL_ NODE_ACTIVATE, Save nothing 
5 94 A p MOVL NOD, R 
0 2 A CMPB $4 (RO), #3 
9 OA BEQL $ 
32 AO 03 90 00 o¢ MOVE #3, 34(RO) 
A AO OT BA 0001 BICB2 #1. 42(RO) 
—E D4 0014 CLRL. = = ( §P) 
0005821B BF DD O16 PUSHL #360987 
0000v CF 83 FB OOte CALLS a CLUSUTIL_NODE_MESSAGE 
04 00023 1$: ET 


; Routine Size: 36 bytes, Routine Base: SCODES + 0268 


| 
| 


OPCSCLUSUTIL 18-50-1984 91:84:06 AX=-11 Bliss-32 V4.0-742 Page 14 
v04-0 CLUSUTIL_NODE_INactivate 14-Sep-1984 12:50:41 OPCOM.SRCJCLUSUTIL .832;1 (12) | 
> 726 0715 1 GLOBAL ROUTINE CLUSUTIL_NODE_INACTIVATE (NOD : $ref_bblock) : NOVALUE = ZSBTTL "CLUSUTIL_NODE_INacti 
. eee 
f 2 gris : ; Functional description: | 
; 4 1 of 9 ! Place a NOD into ‘‘departed”’ state. | 
ee Bh 
: FR 0758 | | ae 

s 37 726 1°! Implicit Input: 

oe: ci 
: bd 8 ? : : Output: | 
Cty Be tte 
ee? 0735 : Implict output: | 
a4 6738 : Global data may be altered | 
ea o738 : Side effects: 
; e3 Bey ' Messages will be sent to cluster operators if there are any changes. 

3 rag 1544 1 Routine value: 
: ree Ope i i None. 

7. nee | 
; 28 0747 2 BEGIN ! Start of CLUSUTIL_NODE_INACTIVATE | 
: 80 0769 5 LOCAL | 
: fe 0731 5 OCD=COUNT 

: Te O78 : RaeT roca: sref7pblock; 

> 765 0754 2! . : , 

: re8 be 32 : ; If the node is already ‘‘departed’’, return | 
: eee 0738 eg CNOD_B_STATE) EQL NOD_K_STATE_DEPARTED | 
on 
: Ai Ore Set the state of the node to ‘‘departed" | 
3 4K 0763 Noo CNOD_B_STATE] = NOD_K_STATE_DEPARTED; | 
: ore ee Tell cluster operators that we have removed this node | 
: ore 3544 FLUSUTIL NODE MESSAGE (.NOD, OPC$_NODE_DEPARTED, FALSE); 
: 0 to Search the entire database for requests owned by the disappearing node. | 
; 782 0771 OCD_INDEX = MAX_SCOPE; | 


M10 
OPCSCLUSUTIL 16-Sep-1984 01:24:2 AX-11 Bliss-32 V4.0-742 Page 28 
v04- CLUSUTIL_NODE_INactivate 1228681382 93:85:89 OPCOM. SRCICLUSUTIL 83251 aby 
; res 077 WHILE .OCD_INDEX GEQ MIN_SCOPE 
: Re Orr §° peciIn : 
; 786 775 ' 
3 oer ore Scan the OCD List for each class of operator 
; 789 0778 OCD = OCD VECTOR C(.OCD_INDEX = 1) * ! Get first OCD address 
: 790 0779 OCD COUNT = .OCD_VECTOR [(.OCD_INDEX - 2F5 *2¢ Ti; ! Get # of OCDs in the List 
: «791 0780 WHICE “OCD. COUNT” GTR 0 
3; 7 0781 
; ores 4 BEGIN 
: oe Ores i Scan th t list f h OCD 
3 can the reques st for eac . 
; 796 0785 4 a 
; 797 0786 4 T.RQCB = .OCD COCD_L_RQSTFLINK] ! Get first RQST_RQCB address 
; 798 0787 4 WHILE ~ROST_RQCB NEQ OCD Loe at "ROS TFLINK) 
; 799 0788 4 dO 
; 800 0789 5 BEGIN 
; 801 0790 5 : 
3 43 149! 2 If the ID matches the disappearing node, cancel the request 
; 804 6798 5 IF CLUSUTIL_SYSTEMID_EQUAL (RQST_RQCB CRQCB_T_SYSTEMIDJ, NOD CNOD_T_NODE_SYSTEMIDJ) 
; 805 0794 5 THEN 
; 806 0795 6 BEGIN 
; 807 0796 6 OCAL 
; 808 0797 6 MESSAGE_VECTOR : VECTOR (3, LONG), 
; 809 0798 6 RQCB; 
; 810 0799 6 ! 
> 811 0800 6 ! Inform all interested operators that the request is canceled. 
; alg Bans ? Log the cancelation notice, and remove the request from the data base. 
> 814 0803 6 MESSAGE VECTOR (0) = OPcs_ RQSTCAN; ' Set message code 
; 815 0804 6 MESSAGE_VECTOR (1) = i Set # of message arguements 
; 816 0805 6 MESSAGE _VECT 2) = RST ROCB CROCB_L -RQSTNUM) ; : Set message arguement 
; 817 0806 6 REMQUE T.RQST_RQCB, RQST ROCB) Remove the request from the database 
; 818 0807 6 OCD COCD_W_RQSTCOUNT) = [OCD toc CD_W -RQSTCOUNTJ - He 
; oi} 44 e FORMAT MESSAGE (.RQST _ROCB, MESSAGE_VECTOR); 
; 821 0810 6 Inform all interested operators that the request is canceled. Log the cancelation 
g HS pat ° notice. No need to inform other nodes, they will be running in parallel with us. 
3; 824 0818 6 NOTIFY ,isiee OPERATORS (.RQST_RQCB); ! Notify the interested operators 
: 825 0814 6 LOG A RESSAG (TRQST_RQCB); ' Log the event 
; B36 0815 6 oc8 = T_RQCB; ' Save the RQCB 
3 0816 6 ROST Roce ares! -Ra cB CR RQCB_L_FLINK); ! Get address of next RQCB 
; 828 0817 6 DEALCOCATE. _ROCB ( RQCB); ! Free the RQCB 
3 4 0818 6 END 
; 830 + 6 : ; 
3 tt 8 ? 6 Request doesn't belong to disappearing node, move to next request 
ae BRS bs 
3 Bee oe ? ? ROST_RQCB = .ROST_RQCB CROCB_L_FLINK); ! Get address of next RQCB 
; 836 o8 5 4 OCD_COUNT = .0CD_COUNT = 1; ' Decrement OCD count 
3 Ht : § 4 oe = .0CD COCD_C_FLINK]; ! Get address of next OCD 
; 839 OB 8 : OCD_ INDEX = .OCD_INDEX - 1; ! Try next operator class 


ah 10. 
OPCSCLUSUTIL 4 01:24:26 AX-11 Bliss-32 V4.0-742 Pa 9 
v0e~ CLUSUTIL_NODE_INactivate | “1984 12:80:41 EOPcom. SRCTeLUSUTi -B 53st 9°15) 
840 0829 END; 
41 08 0 
Bs 831 2 RETURN; | 
4 0832 71 END; ! End of CLUSUTIL_NODE_INACTIVATE | 
003c¢ 00000 ENTRY cLUSUTIL NODE_INACTIVATE, Save R2,R3,R4,R5 ; 0715 
5 gy OE GSR RE: ons? 
04 % AO Bf 2003 CMPB 3 =s-s«-34(RO), #4 : 
01 12 0000D BNEQ 1$ : 
04 0000F RET : 
22 A 04 90 00010 1$ MOVB #4, 34(RO) + 0763 
7E 04 00014 CLRL 30s = ¢ §P) : 0767 
00058228 8F 6D 00016 PUSHL #361003 : 
50 DD 0001C PUSHL RO : 
0000v CF 03 FB 00018 CALLS #3, CLUSUTIL_NODE_MESSAGE ; 
53 00000000G 8F p00 0002 MOVL #MAX_SCOPE, OCD _IRDEX 3 0771 
000000006 &F 53 01 000¢A 2$ CMPL Ocd_ INDEX, wmiNe SCOPE : 0772 
01 18 00031 BGEQ 5 ; 
04 00033 RET ; 
50 53 01 78 00034 3$ ASHL #1, OCD_INDEX, RO : 0778 
32 Q000GCF40 DO 00038 MOVL  OCD_VECTOR-8CROJ, OCD on 
x OOO0GCF40 DO 0003 MOVL § OCDVECTOR-4£ROJ. OCD_COUNT : 0°79 
55 05 00044 4$ TSTL OCD=COU : 9780 
67 15 00046 BLEQ 8$ F 
54 3¢ Ag DO 00048 MOVL  60(OCD), RQST_RQCB + 0786 
50 3¢ = A2s« SE -0004C 5S MOVAB 60(R2), R : 0787 
50 54 D1 90050 CMPL  RQST_RQCB, RO : 
53 13 0005 BEQL is : | 
51 04 ac 00000050 8F C1 00055 ADDL3 #80 RI : 0793) 
50 1C AG 9 0005€ MOVAB SB chast Prat : 
0000v 3 00062 BSBW erusuTic. eter emiy _EQUAL ; | 
3B 50 €9 0006 BLBC —OsséR : 
6E 00058084 BF 00 00068 MOVL #360580, MESSAGE_VECTOR > 0803 
04 AE D4 0006F CLRL RESSAGE VECTOR+4~ + 0804 
08 AE 70 A& 00 0007 MOVL W12iR QST_RQCB) MESSAGE _VECTOR+8 + 0805 
54 64 OF 9007 REMQUE (RQ sre oH QtB), RQST_ : 0806 
3A A2.«~B7 OO07A 5 (OCB) : 0807 
4010 8F BB 0007D PUSHR  #*°M<R4,SP> : 0808 
00006 CF 2 FB 0081 CALLS #2 FORMAT _MESSAGE : 
4 Dd 000 6 PUSHL Rd : 0813 | 
00006 CF 1 FB 0008 CALLS NOTIFY_LISTED_OPERATORS ; 
4 DD 0008D PUSHL na CB > 0814 | 
00006 CF 1 FB OO8F CALLS Coc MESSAGE ; | 
50 4 D0 00094 MOVL Rast RoCB : 0815 
54 64 D0 00097 OVL ROST_ Roce) ORaST_ROCB : 0816 | 
50 DD OO09A PUSHL : 0817 | 
00006 CF 01 FB 0009C CALLS #1, DEALLOCATE_RQCB ; 
AJ 11 OOOA1 BRB ; 0793 
54 64 b0 SOAS 6$: MOVL  § (RQST_RQCB), RQST_ROCB ; 08¢ 
A4 11 OO0A6 BRB 5$ ; 0787 | 
55 D7 0008 7$: DECL  OCD_COUNT : 0825 
52 62 DO OOOAA MOVL (OCB), OCD : 08 6 | 
| 
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; Routine Size: 181 bytes, Routine Base: $CODE$ + 028C 


ee am a a NR a 


11 
OPCSCLUSUTIL 1b-Se =1984 01:24:2 AX-11 Bliss-32 V4.0-742 Page 31. 
v04-000 CLUSUTIL_NODE_INactivate 1e-8ep-19 4 93:85:89 OPCOM.SRCIJCLUSUTIL.B32;1 ° (1 
$ at? oe ; ! GLOBAL ROUTINE CLUSUTIL_NODE_MESSAGE (NOD : $ref_bblock, CODE, WORLD) : NOVALUE = 
; 847 08 5 1 !++ 
; 848 08 8 1 ! Functional description: 
: BSC 0838 1 i This routi iti hat the cl figurati | 
; ! s routine notifies operators that the cluster configuration 
: BS 0839 1 | has changed. . . | 
3 S26 0840 1! 
; «#85 0841 1! 
> 854 pees 1! Input: 
3 899 0843 1! 
3 828 0844 1! NOD : Pointer to NOD data structure | 
3; $3 0845 1! CODE : OPCOM message code for the transition 
3 S28 OBee : } WORLD : Flag = 1 send to rest of cluster, 0 to local node only 
; 860 0848 1°! Implicit Input: | 
; 861 0849 1! 
: 86 0850 1! None. 
: 86 0851 1! 
; 864 th) 1 ! Output: 
: 865 0853 1! | 
: 866 0854 1! None. 
; 867 0855 1! 
; 868 0856 1! Implict output: | 
; 869 0857 1! 
; 870 0858 1! None. 
> 871 0859 1 
; 872 0860 1 ! Side effects: 
; 873 0861 1! 
3; 874 0862 1! Operators are notified. | 
; 875 0863 1! 
; 876 0864 1 ! Routine value: | 
: 877 0865 1! 
3; 878 0866 1! None. 
; 879 0867 1 !-- 
; 880 0868 1 | 
; 881 0869 2 BEGIN ! Start of CLUSUTIL_NODE_MESSAGE 
3 +H 0870 2 
: 88 0871 2 LOCAL 
; 6884 4 5 MESSAGE_VECTOR : VECTOR (6,LONG], ! Message info 
; 885 087 RQCB : $ref_bblock, ' RQCB data structure | 
; 886 0874 2 ocD : Sref_bblock, ! OCD data structure 
; 887 0875 2 OCD_COUNT : LONG, ' Count of OCDs in OCD List 
; 888 p378 NDEX : LONG, ! Index into OCD_VECTOR 
: 889 7 OPER_COUNT : LONG, ' Count of operators in operator List 
: 890 0878 STATOS : LONG; 
; «6891 0879 
; £36 $80 ! 
3 re Ht : Nothing to do if not in a cluster. 
; $32 He IF NOT .GLOBAL_STATUS CGBLSTS_K_IN_VAXc luster] 
3 B97 85 RETURN; 
BBE . 
3 444 0888 If we have printed an error message since the Last timestamp, don't do another. 
; 901 0889 SELECTONE .CODE OF 


<oO 


OPCSCLUSUTIL 16-Sep-1984 01:24:2 AX-11 Bliss-32 V4.0-742 p | q 
yo4=000 CLUSUTIL_NODE_INactivate ae 047g :28 OPCOM.SR RCCL USUTIL.B32;1 age 435 V 
: 0890 T | ; 
; 0891 COPC$_CLUSCOMM, GPC$ NODE RETRY] : : 
3 0898 THEN CNOD_V_IOERR_DISPLAYED] ! Have we already done one this timestamp? ; 
: 0895 | : 
: Baas wee REO. v IOERR_DISPLAYED] = TRUE; ! Set the flag (cleared every timestamp) , 
: 910 0898 COTHERWISE) : ; : 
; 911 899 ; ; 
: 912 0900 ! : 
; a 94 } Allocate an RQCB. This is necessary to format and later issue the message. : 
: 915 0908 5 iF NOT ALLOCATEpS (ROCB_K_TYPE, ROCB) | ; 
: 916 0904 3 
: 917 0905 RETURN; | : 
: 918 0906 ! : 
; 919 0907 ! Set the operator interest mask to cluster | 3 
> 920 0908 i | ; 
: 321 0909 ‘ Race CROCB_L_ATTNMASK1] = OPCSM_NM_CLUSTER; | : 
: 358 0911 2! Format the message, - it, and send it to all interested operators. | : 
; ase 8318 § Every operator in the data base is a candidate for the message. | : 
: 926 0914 2 MESSAGE_VECTOR [0] = .CODE; ! Set the message according to the flag. : 
3: 927 0915 2 MESSAGE_VECTOR 1 = i Use current system time ; 
: 928 0916 2 MESSAGE VECTOR : = Lee _NOD NOD Q_NAME_DESC]; | Use our name | : 
: 929 0917 2 MESSAGE_VECTOR [3] = yl 9 toe 8 NAME Biitt zee addr of node name descriptor ; 
: 930 0918 2 MESSAGE-VECTOR [4] = NOB_C_NODE CSID3; i Set node csid | ; 
: 931 o919 ; MESSAGE_VECTOR [5] = NOD CHROB T_NODE_ CO STEMIDII<Oe 16,0>; ! Set node number | : 
: 933 0921 2 FORMAT_MESSAGE (.RQCB, MESSAGE_VECTOR); : 
; 934 0386 2 LOG_MESSAGE (.RQCB); ! Log the message ; 
: 935 092 2! | ; 
; 936 0924 2 ! Send it to the world 3 
> 937 0925 2! | : 
: 938 0926 2 IF .WORLD : 
: 939 0927 3 T | : 
: 0928 | CLUSMSG_RQCB_SEND (~1, CLM__CLUSTER, .RQCB); : 
: 0980 ; Release the racb | i 
; 095¢ 2 DEALLOCATE_RQCB (.RQCB); | 3 
: gig g Retom (1 
; 0935 1 END; ! End of CLUSUTIL_NODE_MESSAGE | 3 
| ; 

000¢ 00000 ENTRY CLUSUTIL NODE MESSAGE, Save R2,R3 : 0833. ; 

5E 1¢ iF} Beane SUBL2 $ j 

01 00006 CF F8 80005 BLBS ScOBAL _STATUS#1, 1$ > 0883 | i 

53 08 aC DO 00008 1$ MOVL CODE > 0889 : 

00058238 = BF 53 D1 0000F CMPL sR, #3et019 > 0891 F 


| 1 
OPCSCLUSUTIL 1 
04-000 b-se 


-1984 01:24: AX-11 Bliss-32 V4.0-742 Page 33 
CLUSUTIL_NODE_INactivate 14- =300-1382 2: Hal OPCOM. SRCICL USUTIL.832;1 ’ as 
13 0001 BEQL 2 : 
00058253 BF 98 D1 BO18 CMPL ae #361043 : : 
0d if OO1F BNEQ  3$ : | : 
50 04 AC 00 00021 2$ MOVL NOD, RO ; 0893 : 
65 2A = AD 2 £0 0025 BBS #2, (RO), 5$ : | : 
2A «AO 4 88 O002A BISB2 #4, 42(RO) ; 0896 : 
E DD 90 E 3$ PUSHL SP > 0903) i 
000000006 8F DD 00030 PUSHL #RQCB_K_TYPE : | : 
0000G CF ge FB 00036 CALLS #2, ACLOCATE_DS ; : 
51 E9 00038 BLB RO, : : 
52 6E DO 0003E MOVL ROCB, RB Ok ; 0909 | i 
SC A 80 Hi 9A 90041 MOVZBL #128, 92(R2) : : 
04 «AE 3 pO 00046 MOVL R3, MESSAGE_VECTOR + 0914 ; 
08 AE D4 O004A CLRL nESSAGE VECTOR+4 > 0915 ; 
OC AE 00006 CF 30 C1 0004D ADDL3 aati NOD, RAESSAGE _VECTOR+8 + 0916 : 
50 04 AC DO 00054 MOVL con’ RO ~ ; 0917 ; 
10 AE 30 AO 9E 00058 MOVAB 48(RO), MESSAGE_VECTOR+12 : : 
146 AE 2¢ AO 00 0005D MOVL  44(RO), MESSAGE-VECTOR+16 : 0918 ; 
18 AE 50 AO 3C 00062 MOVZWL 80(RO), MESSAGE -VECTOR+20 > 0919 ; 
04 AE 9F 00067 PUSHAB MESSAGE_VECTOR > 0921 
52 DD 0006A PUSHL R2 ; 
0000G CF 02 FB 0006C CALLS #2, FORMAT _MESSAGE é 
52 DD 00071 PUSHL R + 0922 
00006 CF 07 FB 00073 CALLS #1, LOG MESSAGE : 
0c Oc ac €9 00078 BLBC WORLD, 2$ + 0926 
52 DD 0007C PUSHL R + 0928 
07 DD 0007E PUSHL ; 
7E 01 CE 00080 MNEGL #1, -(SP) : 
0000G CF 03 FB 00083 CALLS #3, CLUSMSG_RQCB_SEND 3 
52 DD 00088 4$: PUSHL R : 
0000G CF 07 FB OO08A CALLS #1, DEALLOCATE_RQCB ; 
04 O008F 5$: RET : 0935 


; Routine Size: 144 bytes, Routine Base: S$CODE$S + 0341 
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OPCSCLUSUTIL 


>; 949 09 § 
; 950 09 

; «951 0938 
3 g26 0939 
; 95 0940 
: 954 0941 
s 955 bars 
; 956 094 
; 957 0944 
; 958 0945 
; 959 0946 
: 960 0947 
; 961 0948 
3 o06 0949 
: 96 0950 
> 964 0951 
: 965 0326 
: 966 095 
; 967 0954 
: 968 0955 
: 969 0956 
: 970 0957 
3 971 0958 
3; 972 0959 
3; 973 0960 
: 974 0961 
: 975 096 
: 976 096 
: 977 0964 
; 978 0965 
3; 979 0966 
; 980 0967 
: «981 0968 
: 982 0969 
; «983 0970 
> 984 0971 
: «#985 097 
; 986 097 
3; 987 0974 
: 988 0975 
: 989 0976 
: 990 0977 
: «991 0978 
3 236 979 
; 99 980 
: 994 0981 
3 5 098 
; 996 098 
3 7 0984 
3; 998 0985 
5 0986 


1 
v04-000 clusutil_node_start 1 


1 
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-Sep-1984 12: OPCOM.SR 
GLOBAL ROUTINE CLUSUTIL_NODE_START (NOD : $ref_bblock) : NOVALUE = 


144 
Functional description: 


initialize a NOD block. 
Input: 

None. 
i Implicit Input: 
Data in local storage from SYI call. 
i Qutput: 

None. 
Implict output: 

None. 
Side effects: 

NOD block allocated. 


i 
i 
i 
i 
i 
i 
' 
i 
i 
i 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
Routine value: 
i 

le 


None. 
BEGIN ! Start of CLUSUTIL_ADD_NOD 
LOCAL 
STATUS; 


i FALL in the data from the $GETSYI buffers 
' Set to START state 


NAME CEN; 
OD CROD_T_NAME BUF 1; 


N 

NAME bin NOD-T_NAME_BUF J); 
EHSMOVE (8, MOTE ARN’ NOB BrNOD NO. as INCARRI); 
CHSMOVE (6, SYSTEMID, NOD CNOD~T “NODE “SYSTEMID); 


RETURN -NOD; 
EN 


OOFC 00000 


ENTRY CLUSUTIL_NODE_START, 
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a 


clusutil_node_start 
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Routine Base: 


; Routine Size: 
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#6, SYSTEMID 
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3 i° 2 f ! GLOBAL ROUTINE CLUSUTIL_SYSTEMID_EQUAL (SYS_1 : $Sref_bblock, SYS_2 : $ref_bblock) : JSB_ROR1 = 
; 100 989 1 !44 
; 1004 990 1 ! Functional description: 
: 1908 $993 i C 48-bit SCs tem ids f ival 
; ompare two 48- system ids for equivalence. 
: 1007 0993 1: 
; 1008 0994 1/3 Input: 
; 1009 0995 1 : 
; 1010 0996 1 | SYS_1 : Pointer to a 48-bit SCS id 
3; 1011 0997 1 SYS-2 : Pointer to a tB-b bit SCS id 
3 10l¢ 0998 1} 
3; 101 0999 1! Implicit Input: 
3 1014 1000 1! 
3 1015 1001 1! None. 
3; 1016 1906 13 
3 1017 1003 1! Output: 
3; 1018 1006 1! 
3 1019 1005 1! None. 
: 1020 1006 1! 
: 1021 1007 1! Implict output: 
; 1e6 1008 1! 
3; 102 1009 1: None. 
: 1024 1010 1! 
3; 1025 1011 1 ! Side effects: 
3 1026 13t¢ z 
: 1027 101 13 None. 
3 1028 1014 1! 
; 1029 1015 1 ! Routine value: 
; 1030 1016 1! 
3; 1031 1017 1! True if IDs same, false if not 
: 1032 1018 1 i- 
3 1033 1019 1 
; \oRe i3se Sec BEGIN ! Start of CLUSUTIL_SYSTEMID_EQUAL 
5 1936 1036 IF .SYS_1 (0,0,32,0] NEQ .SYS_2 (0,0,32,0] ' First 32 bits 
: 1038 1024 ~SYS_1 (4,0,16,0] NEQ .SYS_2 (4,0,16,0] ' Next 16 bits 
3; 1039 1025 
3; 1040 1026 RETURN FALSE; 
: 1041 1027 
: 1042 1028 RETURN TRUE; 
3; 1043 1029 1 END; ! End of CLUSUTIL_SYSTEMID_EQUAL 
61 60 D1 00006 CLUSUTIL_SYSTEMID_E FOuAL 
MPL (SYS_1 ‘* (sys_2) : 1022. 
0B 12 0000 BNEQ 1$ : 
04 «Al 04 AO B61 0000 CMPW 4(SYS_1), 4(SYS_2) > 1024 | 
4 1 BR0A BNEQ 1$ ; 
50 1 B be MOVL #1, RO ; 1028 | 
F RSB 3 
50 Be 10 1$: CLAL R : 1029 
5 00012 RSB ; 
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19 bytes, Routine Base: $CODE$ + 0405 


; Routine Size: 


; Lines/CPU mi. ers 
; Lexemes/CPU-Min: 14572 
, 127 pages 
tion Complete 


clusutil_node_start 


1030 1 END 
1031 0 ELUDOM 


PSECT SUMMARY 
Bytes 


124 NOVEC, WRT, RD ,NOEXE,NOSHR, 
1048 NOVEC;NOWRT, RD , 


Library Statistics 


Symbols 
Total Loaded 
_$255$0UA28: CSYSLIBIJLIB.L32;1 18619 20 
*$255$DUA28 : COPCOM.OBJ JOPCOMLIB.L32;1 633 30 


COMMAND QUALIFIERS 


1068 coge + 124 data bytes 
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! End of CLUSUTIL 
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